Top 10k strings from Schiffe Versenken (1983)(Omega-Soft)(de).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   3 sunk=sunk+w:
   3 "30";sunk:
   2 w$(i)="0":
   2 d(w+g*k)=x:
   2 a$="Bitte ""a-j"" und ""0-9"" druecken. "
   2 SCHIFFE VERSENKEN
   1 y=y1+(dir=m)-(dir=n)
   1 y=y+(w-d)*(k>o)
   1 y=y+(t$="h")*(k>o)
   1 y=h(w,g)-dy
   1 y=h(acc,g)+dy:
   1 xx=m+e*c-or1:
   1 x=x1+(dir=w)-(dir=g):
   1 x=x+d*(k>o):
   1 x=x+(t$="r")*(k>o):
   1 x=h(w,w)-dx:
   1 x=h(acc,w)+dx:
   1 x=d(g*i-w):
   1 w;" SIE HABEN GEWONNEN  "
   1 w;" ICH HABE GEWONNEN "
   1 v$(x,y)=u$(x,y):
   1 u$(x,y)=" "
   1 u$(d(g*i-w),d(g*i))=
   1 tries=tries+w:
   1 t$=t$(g)+t$(w)
   1 t$="SCHIFFE VERSENKEN":
   1 t$(w)<"a")
   1 start;"MICH"
   1 q,o;"Druecken Sie eine Taste...
   1 q,o;"Der Computer setzt die Flotte"
   1 o;" zum anfangen."
   1 n,m,z,e,g,h,aa
   1 m,w;"Jede Flotte besitzt 8 Schiffe:"''" 1 Flugzeugtraeger";
   1 m,o;"SETZEN SIE IHRE FLOTTE:"
   1 l$,r$,enemy,sunk,trail,sense,max,go,w$
   1 h(i,j)=h(i-w,j):
   1 h(acc,w)=x:
   1 h(acc,g)=y
   1 enemy=enemy+w
   1 echts ?    ";
   1 dy=h(g,g)-h(w,g)
   1 dx=h(g,w)-h(w,w):
   1 dir=dir+w:
   1 d(g+g*k)=y:
   1 d(g+g*k)=y
   1 a$="Keine Seitenberuehrung !
   1 a$="Hier haben Sie schon hingefeuert":
   1 a$="Diese Position ist schon belegt.":
   1 a$="Das geht so nicht !
   1 a$="Bitte genau zwei Zeichen
   1 a$="Bitte ""h"" oder ""r"" eingeben.":
   1 ,'=x.)ffDjCj
   1 (t$(w)>"9"
   1 (a$);"Richtung: 
   1 (a$);"Feuer-Koordinaten ? ";
   1 (a$)'"Bugposition "'(s$(s,g+w
   1 '"Die Schiffe duerfen sich nur an den Ecken beruehren. Sie sind   gerade und liegen waage- oder   senkrecht. Geben Sie die Posi-  tionen mit den Koordinaten an,  z.B. a0 oder auch 3b."
   1 '" Wir feuern abwechselnd Salven   zu je drei Schuessen."
   1 "abcdefghij","
   1 "Ein neues Spiel ? ";
   1 "4 FLUGZEUGTRAEGER","3 1. KREUZER","3 2. KREUZER","2 1. ZERSTOERER","2 2. ZERSTOERER","1 1. U-BOOT","1 2. U-BOOT","1 3. U-BOOT"
   1 "30";enemy:
   1 "255",aa,aa,aa,aa,aa,aa,aa
   1 "255",aa,aa,
   1 "232"*(w-start),
   1 "23"+e*start,o:
   1 "19",o;"SCHUSS NUMMER ";k,"
   1 "19",o;"Ich werfe eine Muenze..."
   1 "1792"*f)*(j>
   1 "172"-e*l-or2
   1 "17";"Ihre Treffer 0";
   1 "17"-y,x+m;
   1 "17"-y,e+x;
   1 "16";"Meine Treffer 0"
   1 "16",c+w;l$:
   1 "156",aa,aa
   1 "1",o;"Druecken Sie eine Taste fuer "'
   1 ".025",-q:
   1 ",o,o,o,o,n,o,"43322111"
   1 " 3 U-Boote";
   1 " 2 Zerstoerer";
   1 " 2 Kreuzer";
   1  DRUECKEN SIE EINE TASTE 
   1  1983 by OMEGA-SOFT